home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / recipe.dxr / 00040_Recipe description tab-scroll reset.ls < prev    next >
Encoding:
Text File  |  2000-03-23  |  527 b   |  26 lines
  1. property pSpr, pMember
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pMember = pSpr.member
  6.   pMember.scrollTop = 0
  7.   mRefresh(me)
  8. end
  9.  
  10. on mRefresh me
  11.   if not isText(pSpr) then
  12.     exit
  13.   end if
  14.   fullView()
  15.   if paused() then
  16.     exit
  17.   end if
  18.   if charPosToLoc(pMember, length(pMember.text)).locV > pSpr.rect.height then
  19.     pMember.boxType = #scroll
  20.   else
  21.     pMember.boxType = #fixed
  22.   end if
  23.   pMember.Tabs = [[#type: #left, #position: 12], [#type: #left, #position: 24], [#type: #left, #position: 62]]
  24.   pass()
  25. end
  26.